Option Explicit
Sub D_Sample010()
    Range("B1").ColumnWidth = Range("A1").ColumnWidth
End Sub
